home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / VIDEO9.ASM < prev    next >
Assembly Source File  |  1993-05-04  |  2KB  |  58 lines
  1. ;**************************************;
  2. ; WASM Video Module, Fix Cursor Type   ;
  3. ; By Eric Tauck                        ;
  4. ;                                      ;
  5. ; Defines:                             ;
  6. ;                                      ;
  7. ;   CurFix  force standard cursor type ;
  8. ;                                      ;
  9. ; Requires:                            ;
  10. ;                                      ;
  11. ;   VIDEO1.ASM                         ;
  12. ;   VIDEO2.ASM                         ;
  13. ;   VIDEO4.ASM                         ;
  14. ;**************************************;
  15.  
  16.         jmps    _video9_end
  17.  
  18. ;--- scan line settings for 80x25 mode
  19.  
  20. _vid_scan LABEL BYTE
  21.         DW      0B0CH   ;MDA
  22.         DW      0607H   ;CGAMON
  23.         DW      0607H   ;CGACOL
  24.         DW      0607H   ;EGAMON         ;not sure if correct
  25.         DW      0607H   ;EGACOL         ;works okay on test system
  26.         DW      0D0EH   ;VGAMON         ;probably works, 0607 might be better
  27.         DW      0D0EH   ;VGACOL         ;works, 0607 also works
  28.         DW      0D0EH   ;MCGAMON        ;not sure if correct
  29.         DW      0D0EH   ;MCGACOL        ;not sure if correct
  30.  
  31. ;========================================
  32. ; Set the cursor type according to the
  33. ; adapter.  ONLY VALID FOR 80x25 TEXT
  34. ; MODE.
  35. ;
  36. ; Out: CY= set if error.
  37.  
  38. CurFix  PROC    NEAR
  39.         call    VidTyp                  ;get adapter type
  40.         jc      _crfix2                 ;exit if error
  41.         sub     ah, ah
  42.         dec     ax
  43.         mov     bx, ax
  44.         shl     bx                      ;BX times two
  45.         mov     ax, [_vid_scan + bx]    ;load scan pattern
  46.         mov     _vid_con, ax            ;save it
  47.         call    CurGet                  ;get cursor flag
  48.         or      al, al                  ;check flag
  49.         jz      _crfix1                 ;exit if off
  50.         sub     al, al
  51.         call    CurSet                  ;cursor off
  52.         call    CurSet                  ;cursor on
  53. _crfix1 clc
  54. _crfix2 ret
  55.         ENDP
  56.  
  57. _video9_end
  58.